From: Kenichi Handa <handa@m17n.org>
Date: Tue, 7 Oct 2003 23:34:15 +0000 (+0000)
Subject: (Fcoding_system_p): Return t for auto-loading coding system.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25248
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=733c9ea4be3efaa5c9a92ea979221e95ec76b2df;p=emacs.git

(Fcoding_system_p): Return t for auto-loading coding system.
---

diff --git a/src/coding.c b/src/coding.c
index 47bfbf5cacb..12558b958c4 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6333,6 +6333,8 @@ about coding-system objects.  */)
     return Qt;
   if (!SYMBOLP (obj))
     return Qnil;
+  if (! NILP (Fget (obj, Qcoding_system_define_form)))
+    return Qt;
   /* Get coding-spec vector for OBJ.  */
   obj = Fget (obj, Qcoding_system);
   return ((VECTORP (obj) && XVECTOR (obj)->size == 5)